<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">

<head>
	<title>utilidades</title>
	<meta http-equiv="content-type" content="text/html;charset=utf-8" />
	<meta name="generator" content="Geany 1.22" />
	<meta name="date" content="2014-02-21T02:27:08-0300" />
	<style type="text/css">
	body
	{
		font-family: Monospace, monospace;
		font-size: 10pt;
	}
	.style_0
	{
		color: #000000;
		background-color: #ffffff;
	}
	.style_1
	{
		color: #000000;
		background-color: #ffffff;
	}
	.style_2
	{
		color: #d00000;
		background-color: #ffffff;
	}
	.style_4
	{
		color: #d00000;
		background-color: #ffffff;
	}
	.style_7
	{
		color: #007f00;
		background-color: #ffffff;
	}
	.style_8
	{
		color: #007f00;
		background-color: #ffffff;
	}
	.style_9
	{
		color: #00007f;
		background-color: #ffffff;
		font-weight: bold;
	}
	.style_10
	{
		color: #ff8000;
		background-color: #ffffff;
	}
	.style_12
	{
		color: #ff8000;
		background-color: #ffffff;
	}
	.style_13
	{
		color: #301010;
		background-color: #ffffff;
	}
	.style_32
	{
		color: #bfe77700;
		background-color: #000000;
		font-weight: bold;
		font-style: italic;
	}
	.style_34
	{
		color: #000000;
		background-color: #000000;
		font-style: italic;
	}
	.style_35
	{
		color: #b6ec6fdd;
		background-color: #bfe77740;
		font-style: italic;
	}
	.style_37
	{
		color: #000000;
		background-color: #000000;
		font-style: italic;
	}
	.style_39
	{
		color: #b6c3dc09;
		background-color: #b6eee35c;
		font-weight: bold;
	}
	.style_40
	{
		color: #b6eee35c;
		background-color: #bfe7791c;
		font-weight: bold;
	}
	.style_41
	{
		color: #bfe7792c;
		background-color: #9208900;
		font-weight: bold;
		font-style: italic;
	}
	.style_43
	{
		color: #000000;
		background-color: #000000;
	}
	.style_45
	{
		color: #000000;
		background-color: #000000;
		font-weight: bold;
		font-style: italic;
	}
	.style_46
	{
		color: #9466d30;
		background-color: #b6e252d2;
		font-style: italic;
	}
	.style_47
	{
		color: #b6c30440;
		background-color: #bfe78a04;
		font-weight: bold;
		font-style: italic;
	}
	.style_48
	{
		color: #b6e995a0;
		background-color: #000001;
		font-weight: bold;
		font-style: italic;
	}
	.style_49
	{
		color: #b761d900;
		background-color: #000000;
		font-weight: bold;
		font-style: italic;
	}
	.style_50
	{
		color: #000008;
		background-color: #b6e99000;
		font-weight: bold;
		font-style: italic;
	}
	.style_51
	{
		color: #b6e248df;
		background-color: #000000;
		font-weight: bold;
		font-style: italic;
	}
	.style_52
	{
		color: #9204190;
		background-color: #000000;
		font-weight: bold;
		font-style: italic;
	}
	.style_53
	{
		color: #b6e99000;
		background-color: #9208900;
		font-weight: bold;
	}
	.style_54
	{
		color: #b6e99000;
		background-color: #b6dc4226;
		font-weight: bold;
		font-style: italic;
	}
	.style_55
	{
		color: #b6dfdf0e;
		background-color: #b6e995a0;
		font-weight: bold;
	}
	.style_56
	{
		color: #9208900;
		background-color: #000001;
		font-weight: bold;
		font-style: italic;
	}
	.style_57
	{
		color: #8e9d6c8;
		background-color: #000078;
		font-weight: bold;
		font-style: italic;
	}
	.style_58
	{
		color: #8e9d0c0;
		background-color: #b6ecbecd;
		font-weight: bold;
		font-style: italic;
	}
	.style_59
	{
		color: #b6c3ccdf;
		background-color: #8f30238;
		font-weight: bold;
		font-style: italic;
	}
	.style_60
	{
		color: #941d000;
		background-color: #9208900;
		font-weight: bold;
		font-style: italic;
	}
	.style_61
	{
		color: #000145;
		background-color: #000000;
		font-weight: bold;
		font-style: italic;
	}
	.style_63
	{
		color: #b6eee000;
		background-color: #941d000;
		font-weight: bold;
		font-style: italic;
	}
	.style_64
	{
		color: #b6eee35c;
		background-color: #941d000;
		font-weight: bold;
		font-style: italic;
	}
	.style_65
	{
		color: #000000;
		background-color: #b6eee000;
		font-weight: bold;
		font-style: italic;
	}
	.style_66
	{
		color: #00014c;
		background-color: #b76fa000;
		font-weight: bold;
		font-style: italic;
	}
	.style_67
	{
		color: #b73f94fb;
		background-color: #941d000;
		font-weight: bold;
	}
	.style_68
	{
		color: #941d000;
		background-color: #b76fa000;
		font-weight: bold;
		font-style: italic;
	}
	.style_69
	{
		color: #000146;
		background-color: #000000;
		font-weight: bold;
		font-style: italic;
	}
	.style_71
	{
		color: #b6eee000;
		background-color: #bfe77bd0;
		font-weight: bold;
		font-style: italic;
	}
	.style_72
	{
		color: #941d000;
		background-color: #8ed1b20;
		font-style: italic;
	}
	.style_73
	{
		color: #b76fa000;
		background-color: #941d000;
		font-weight: bold;
		font-style: italic;
	}
	.style_74
	{
		color: #8ed1b08;
		background-color: #b6eabacd;
		font-weight: bold;
	}
	.style_75
	{
		color: #bfe77bd0;
		background-color: #bfe77b7c;
		font-weight: bold;
		font-style: italic;
	}
	.style_76
	{
		color: #b6eee000;
		background-color: #b6eee000;
		font-weight: bold;
		font-style: italic;
	}
	.style_77
	{
		color: #000000;
		background-color: #000001;
		font-weight: bold;
		font-style: italic;
	}
	.style_78
	{
		color: #000001;
		background-color: #b6c3ccdf;
		font-weight: bold;
		font-style: italic;
	}
	.style_79
	{
		color: #b6e24a4f;
		background-color: #941d000;
		font-weight: bold;
		font-style: italic;
	}
	.style_80
	{
		color: #40000004;
		background-color: #000000;
		font-weight: bold;
		font-style: italic;
	}
	.style_81
	{
		color: #bfe77b7c;
		background-color: #b6eee35c;
		font-weight: bold;
		font-style: italic;
	}
	.style_82
	{
		color: #b6e99000;
		background-color: #b6eee000;
		font-weight: bold;
		font-style: italic;
	}
	.style_83
	{
		color: #b6ebf18f;
		background-color: #b6eee35c;
		font-style: italic;
	}
	.style_84
	{
		color: #bfe77b7c;
		background-color: #bfe77bd0;
		font-weight: bold;
		font-style: italic;
	}
	.style_85
	{
		color: #000050;
		background-color: #bfe77b74;
		font-weight: bold;
		font-style: italic;
	}
	.style_86
	{
		color: #b6eee35c;
		background-color: #b6eee000;
		font-weight: bold;
		font-style: italic;
	}
	.style_88
	{
		color: #b6eee000;
		background-color: #bfe77bd0;
		font-weight: bold;
		font-style: italic;
	}
	.style_89
	{
		color: #000001;
		background-color: #bfe77b88;
		font-weight: bold;
		font-style: italic;
	}
	.style_90
	{
		color: #bfe77d88;
		background-color: #b6eb18d2;
		font-weight: bold;
		font-style: italic;
	}
	.style_91
	{
		color: #b6eee000;
		background-color: #bfe77bd0;
		font-weight: bold;
		font-style: italic;
	}
	.style_92
	{
		color: #bfe77bd0;
		background-color: #000001;
		font-weight: bold;
		font-style: italic;
	}
	.style_94
	{
		color: #bfe77bd0;
		background-color: #b6e24d30;
		font-weight: bold;
		font-style: italic;
	}
	.style_96
	{
		color: #000000;
		background-color: #8ed1b20;
		font-weight: bold;
		font-style: italic;
	}
	.style_97
	{
		color: #000000;
		background-color: #bfe77c10;
		font-weight: bold;
		font-style: italic;
	}
	.style_99
	{
		color: #000000;
		background-color: #b6eee35c;
		font-weight: bold;
		font-style: italic;
	}
	.style_100
	{
		color: #8ed69f8;
		background-color: #bfe77bd0;
		font-weight: bold;
		font-style: italic;
	}
	.style_101
	{
		color: #000069;
		background-color: #000000;
		font-weight: bold;
		font-style: italic;
	}
	.style_102
	{
		color: #935d330;
		background-color: #000000;
		font-weight: bold;
		font-style: italic;
	}
	.style_103
	{
		color: #000004;
		background-color: #8ed69f8;
		font-weight: bold;
		font-style: italic;
	}
	.style_106
	{
		color: #000000;
		background-color: #92a08e0;
		font-weight: bold;
		font-style: italic;
	}
	.style_108
	{
		color: #000001;
		background-color: #000001;
		font-weight: bold;
		font-style: italic;
	}
	.style_109
	{
		color: #000050;
		background-color: #b7505ae0;
		font-weight: bold;
		font-style: italic;
	}
	.style_110
	{
		color: #b7505ae0;
		background-color: #b6e24a4f;
		font-weight: bold;
		font-style: italic;
	}
	.style_111
	{
		color: #b6e248df;
		background-color: #941d008;
		font-weight: bold;
	}
	.style_112
	{
		color: #941d008;
		background-color: #b6dc4046;
		font-weight: bold;
		font-style: italic;
	}
	.style_113
	{
		color: #b6e99000;
		background-color: #941d000;
		font-weight: bold;
	}
	.style_114
	{
		color: #b6e99000;
		background-color: #b6dc41ef;
		font-weight: bold;
		font-style: italic;
	}
	.style_115
	{
		color: #b6dfdf0e;
		background-color: #b6e995a0;
		font-weight: bold;
	}
	.style_116
	{
		color: #941d000;
		background-color: #000001;
		font-weight: bold;
		font-style: italic;
	}
	.style_117
	{
		color: #8e9d6c8;
		background-color: #000068;
		font-weight: bold;
		font-style: italic;
	}
	.style_118
	{
		color: #8e9d0b8;
		background-color: #b6ecbecd;
		font-weight: bold;
		font-style: italic;
	}
	.style_119
	{
		color: #b6c3ccdf;
		background-color: #8f2e2c8;
		font-weight: bold;
		font-style: italic;
	}
	.style_120
	{
		color: #935d330;
		background-color: #941d000;
		font-weight: bold;
		font-style: italic;
	}
	.style_121
	{
		color: #000145;
		background-color: #000000;
		font-weight: bold;
		font-style: italic;
	}
	.style_123
	{
		color: #b6eee000;
		background-color: #935d330;
		font-weight: bold;
		font-style: italic;
	}
	.style_124
	{
		color: #b6eee35c;
		background-color: #935d330;
		font-weight: bold;
		font-style: italic;
	}
	.style_125
	{
		color: #000000;
		background-color: #b6eee000;
		font-weight: bold;
		font-style: italic;
	}
	.style_126
	{
		color: #941a240;
		background-color: #b76fa000;
		font-weight: bold;
		font-style: italic;
	}
	.style_127
	{
		color: #b73f94fb;
		background-color: #935d330;
		font-weight: bold;
	}
	.style_128
	{
		color: #935d330;
		background-color: #b76fa000;
		font-weight: bold;
		font-style: italic;
	}
	.style_129
	{
		color: #000146;
		background-color: #000000;
		font-weight: bold;
		font-style: italic;
	}
	.style_131
	{
		color: #b6eee000;
		background-color: #bfe78080;
		font-weight: bold;
		font-style: italic;
	}
	.style_132
	{
		color: #935d330;
		background-color: #8ed1b20;
		font-style: italic;
	}
	.style_133
	{
		color: #b76fa000;
		background-color: #935d330;
		font-weight: bold;
		font-style: italic;
	}
	.style_134
	{
		color: #8ed1b08;
		background-color: #b6eabacd;
		font-weight: bold;
	}
	.style_135
	{
		color: #bfe78080;
		background-color: #bfe7802c;
		font-weight: bold;
	}
	.style_136
	{
		color: #b6eee000;
		background-color: #b6eee000;
		font-weight: bold;
		font-style: italic;
	}
	.style_137
	{
		color: #000000;
		background-color: #000001;
		font-weight: bold;
		font-style: italic;
	}
	.style_138
	{
		color: #000001;
		background-color: #b6c3ccdf;
		font-weight: bold;
		font-style: italic;
	}
	.style_139
	{
		color: #b6e24a4f;
		background-color: #935d330;
		font-weight: bold;
		font-style: italic;
	}
	.style_140
	{
		color: #40000003;
		background-color: #000000;
		font-weight: bold;
		font-style: italic;
	}
	.style_141
	{
		color: #bfe7802c;
		background-color: #b6eee35c;
		font-weight: bold;
		font-style: italic;
	}
	.style_142
	{
		color: #000000;
		background-color: #b6eee000;
		font-weight: bold;
		font-style: italic;
	}
	.style_143
	{
		color: #b6ebf18f;
		background-color: #b6eee35c;
		font-style: italic;
	}
	.style_144
	{
		color: #bfe7802c;
		background-color: #bfe78080;
		font-weight: bold;
		font-style: italic;
	}
	.style_145
	{
		color: #000050;
		background-color: #bfe78024;
		font-weight: bold;
		font-style: italic;
	}
	.style_146
	{
		color: #b6eee35c;
		background-color: #b6eee000;
		font-weight: bold;
		font-style: italic;
	}
	.style_148
	{
		color: #b6eee000;
		background-color: #bfe78080;
		font-weight: bold;
		font-style: italic;
	}
	.style_149
	{
		color: #000001;
		background-color: #bfe78038;
		font-weight: bold;
		font-style: italic;
	}
	.style_150
	{
		color: #bfe78238;
		background-color: #b6eb18d2;
		font-weight: bold;
		font-style: italic;
	}
	.style_151
	{
		color: #b6eee000;
		background-color: #bfe78080;
		font-weight: bold;
		font-style: italic;
	}
	.style_152
	{
		color: #bfe78080;
		background-color: #000001;
		font-weight: bold;
		font-style: italic;
	}
	.style_154
	{
		color: #bfe78080;
		background-color: #b6e24d30;
		font-weight: bold;
		font-style: italic;
	}
	.style_156
	{
		color: #000000;
		background-color: #8ed1b20;
		font-weight: bold;
		font-style: italic;
	}
	.style_157
	{
		color: #000000;
		background-color: #bfe780c0;
		font-weight: bold;
		font-style: italic;
	}
	.style_159
	{
		color: #000000;
		background-color: #b6eee35c;
		font-weight: bold;
		font-style: italic;
	}
	.style_160
	{
		color: #8ed69f8;
		background-color: #bfe78080;
		font-weight: bold;
	}
	.style_161
	{
		color: #000069;
		background-color: #000000;
		font-weight: bold;
		font-style: italic;
	}
	.style_162
	{
		color: #92a08e0;
		background-color: #000000;
		font-weight: bold;
		font-style: italic;
	}
	.style_163
	{
		color: #000004;
		background-color: #8ed69f8;
		font-weight: bold;
		font-style: italic;
	}
	.style_166
	{
		color: #000000;
		background-color: #9481ce0;
		font-weight: bold;
		font-style: italic;
	}
	.style_168
	{
		color: #000001;
		background-color: #000001;
		font-weight: bold;
		font-style: italic;
	}
	.style_170
	{
		color: #000000;
		background-color: #b6e24a4f;
		font-weight: bold;
	}
	.style_171
	{
		color: #b6e248df;
		background-color: #935d338;
		font-weight: bold;
		font-style: italic;
	}
	.style_172
	{
		color: #935d338;
		background-color: #b6dc4046;
		font-weight: bold;
		font-style: italic;
	}
	.style_173
	{
		color: #b6e99000;
		background-color: #935d330;
		font-weight: bold;
	}
	.style_174
	{
		color: #b6e99000;
		background-color: #b6dc41ef;
		font-weight: bold;
		font-style: italic;
	}
	.style_175
	{
		color: #b6dfdf0e;
		background-color: #b6e995a0;
		font-weight: bold;
	}
	.style_176
	{
		color: #935d330;
		background-color: #000001;
		font-weight: bold;
		font-style: italic;
	}
	.style_177
	{
		color: #8e9d6c8;
		background-color: #b6e99000;
		font-weight: bold;
		font-style: italic;
	}
	.style_178
	{
		color: #8e9d0b0;
		background-color: #b6c3ccdf;
		font-weight: bold;
		font-style: italic;
	}
	.style_179
	{
		color: #b6e24a4f;
		background-color: #92a08e0;
		font-weight: bold;
		font-style: italic;
	}
	.style_180
	{
		color: #000000;
		background-color: #b6eee000;
		font-weight: bold;
		font-style: italic;
	}
	.style_181
	{
		color: #92a08e0;
		background-color: #8ed1b08;
		font-weight: bold;
		font-style: italic;
	}
	.style_182
	{
		color: #b6e99000;
		background-color: #b6eee000;
		font-weight: bold;
		font-style: italic;
	}
	.style_183
	{
		color: #b6ec55b1;
		background-color: #b6eee35c;
		font-weight: bold;
		font-style: italic;
	}
	.style_184
	{
		color: #8f100d0;
		background-color: #000000;
		font-weight: bold;
		font-style: italic;
	}
	.style_185
	{
		color: #b6ecfee4;
		background-color: #b7504440;
		font-weight: bold;
		font-style: italic;
	}
	.style_187
	{
		color: #b76fa000;
		background-color: #92a08e0;
		font-weight: bold;
		font-style: italic;
	}
	.style_188
	{
		color: #92a08e0;
		background-color: #000146;
		font-style: italic;
	}
	.style_189
	{
		color: #b76fa000;
		background-color: #92a08e0;
		font-weight: bold;
		font-style: italic;
	}
	.style_190
	{
		color: #000000;
		background-color: #b76fa000;
		font-weight: bold;
		font-style: italic;
	}
	.style_191
	{
		color: #b751f591;
		background-color: #92a08e0;
	}
	.style_192
	{
		color: #b751f517;
		background-color: #b6eee000;
		font-weight: bold;
		font-style: italic;
	}
	.style_193
	{
		color: #8ed1b20;
		background-color: #000000;
		font-weight: bold;
		font-style: italic;
	}
	.style_194
	{
		color: #92a08e0;
		background-color: #b6eac49e;
		font-weight: bold;
		font-style: italic;
	}
	.style_195
	{
		color: #b6eabacd;
		background-color: #000001;
		font-style: italic;
	}
	.style_196
	{
		color: #bfe784ec;
		background-color: #b751f510;
		font-weight: bold;
		font-style: italic;
	}
	.style_198
	{
		color: #000001;
		background-color: #bfe78540;
		font-weight: bold;
		font-style: italic;
	}
	.style_199
	{
		color: #b6c3ccdf;
		background-color: #bfe78500;
		font-weight: bold;
		font-style: italic;
	}
	.style_200
	{
		color: #92a08e0;
		background-color: #b6eee000;
		font-weight: bold;
		font-style: italic;
	}
	.style_201
	{
		color: #000000;
		background-color: #000001;
		font-weight: bold;
		font-style: italic;
	}
	.style_203
	{
		color: #b6eee000;
		background-color: #bfe784ec;
		font-weight: bold;
		font-style: italic;
	}
	.style_204
	{
		color: #b6eee35c;
		background-color: #000000;
		font-weight: bold;
		font-style: italic;
	}
	.style_205
	{
		color: #bfe78540;
		background-color: #b6eee000;
		font-weight: bold;
		font-style: italic;
	}
	.style_206
	{
		color: #bfe784e4;
		background-color: #b6dc54fd;
		font-weight: bold;
		font-style: italic;
	}
	.style_207
	{
		color: #b6eee000;
		background-color: #92a08e0;
		font-weight: bold;
		font-style: italic;
	}
	.style_208
	{
		color: #92a08e8;
		background-color: #000050;
	}
	.style_209
	{
		color: #bfe78540;
		background-color: #8e9f6e0;
		font-weight: bold;
		font-style: italic;
	}
	.style_210
	{
		color: #bfe784f8;
		background-color: #b6eee000;
		font-weight: bold;
		font-style: italic;
	}
	.style_211
	{
		color: #b6eb18d2;
		background-color: #92a08e0;
		font-style: italic;
	}
	.style_212
	{
		color: #bfe78540;
		background-color: #bfe78554;
		font-weight: bold;
		font-style: italic;
	}
	.style_213
	{
		color: #000001;
		background-color: #b6ebe1d9;
		font-weight: bold;
		font-style: italic;
	}
	.style_214
	{
		color: #bfe78540;
		background-color: #b6ec6fdd;
		font-weight: bold;
	}
	.style_215
	{
		color: #b6e24d30;
		background-color: #8ea14c8;
		font-weight: bold;
		font-style: italic;
	}
	.style_220
	{
		color: #b6eee35c;
		background-color: #bfe7872c;
		font-weight: bold;
		font-style: italic;
	}
	.style_221
	{
		color: #bfe78540;
		background-color: #000020;
		font-weight: bold;
		font-style: italic;
	}
	.style_223
	{
		color: #b6e99000;
		background-color: #b6c3f7cf;
		font-weight: bold;
		font-style: italic;
	}
	.style_224
	{
		color: #000000;
		background-color: #bfe78580;
		font-weight: bold;
		font-style: italic;
	}
	.style_225
	{
		color: #b6e252b6;
		background-color: #b6e99000;
		font-weight: bold;
		font-style: italic;
	}
	.style_226
	{
		color: #9481598;
		background-color: #b6e252d2;
		font-style: italic;
	}
	.style_227
	{
		color: #b6e99000;
		background-color: #b6e99000;
		font-weight: bold;
		font-style: italic;
	}
	.style_229
	{
		color: #000000;
		background-color: #000010;
		font-weight: bold;
		font-style: italic;
	}
	.style_230
	{
		color: #000018;
		background-color: #b6e99000;
		font-weight: bold;
		font-style: italic;
	}
	.style_231
	{
		color: #b6de75bb;
		background-color: #000000;
		font-weight: bold;
		font-style: italic;
	}
	.style_232
	{
		color: #9481598;
		background-color: #000002;
		font-weight: bold;
		font-style: italic;
	}
	.style_233
	{
		color: #9481598;
		background-color: #8e9d098;
		font-weight: bold;
		font-style: italic;
	}
	.style_234
	{
		color: #b6e99000;
		background-color: #b6dc4226;
		font-weight: bold;
		font-style: italic;
	}
	.style_235
	{
		color: #b6e99000;
		background-color: #b6c3f7cf;
		font-weight: bold;
		font-style: italic;
	}
	.style_236
	{
		color: #000000;
		background-color: #92a0988;
		font-weight: bold;
		font-style: italic;
	}
	.style_237
	{
		color: #b6e252b6;
		background-color: #b6e99000;
		font-weight: bold;
		font-style: italic;
	}
	.style_238
	{
		color: #b76fa000;
		background-color: #b73f9564;
		font-weight: bold;
		font-style: italic;
	}
	.style_239
	{
		color: #b6eee338;
		background-color: #92a08e8;
		font-weight: bold;
		font-style: italic;
	}
	.style_240
	{
		color: #0000e0;
		background-color: #92a0988;
		font-weight: bold;
		font-style: italic;
	}
	.style_241
	{
		color: #000145;
		background-color: #000000;
		font-weight: bold;
		font-style: italic;
	}
	.style_243
	{
		color: #000000;
		background-color: #000000;
		font-weight: bold;
		font-style: italic;
	}
	.style_244
	{
		color: #92a08e0;
		background-color: #000001;
		font-weight: bold;
		font-style: italic;
	}
	.style_245
	{
		color: #000035;
		background-color: #000000;
		font-weight: bold;
		font-style: italic;
	}
	.style_246
	{
		color: #92a08e0;
		background-color: #b6eee338;
		font-weight: bold;
	}
	.style_247
	{
		color: #b6eee000;
		background-color: #92a08e0;
		font-weight: bold;
		font-style: italic;
	}
	.style_248
	{
		color: #92a08e0;
		background-color: #000050;
		font-weight: bold;
		font-style: italic;
	}
	.style_249
	{
		color: #b76fa000;
		background-color: #000001;
		font-weight: bold;
		font-style: italic;
	}
	.style_250
	{
		color: #b7342819;
		background-color: #92a08e0;
		font-weight: bold;
		font-style: italic;
	}
	.style_251
	{
		color: #b6e99000;
		background-color: #9469100;
		font-weight: bold;
		font-style: italic;
	}
	.style_252
	{
		color: #000000;
		background-color: #9469100;
		font-weight: bold;
		font-style: italic;
	}
	.style_253
	{
		color: #fffffff8;
		background-color: #b6e99000;
		font-weight: bold;
		font-style: italic;
	}
	.style_254
	{
		color: #000000;
		background-color: #8fa7a28;
		font-weight: bold;
		font-style: italic;
	}
	.style_255
	{
		color: #80991de;
		background-color: #9469100;
		font-weight: bold;
		font-style: italic;
	}

	</style>
</head>

<body>
<p>
<span class="style_9">UNIT&nbsp;</span><span class="style_1">utilidades</span><span class="style_13">;</span><br />
<span class="style_9">INTERFACE</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">USES&nbsp;</span><span class="style_1">crt</span><span class="style_13">,&nbsp;</span><span class="style_1">strings</span><span class="style_13">,&nbsp;</span><span class="style_1">baseunix</span><span class="style_13">,&nbsp;</span><span class="style_1">sysutils</span><span class="style_13">;</span><br />
<br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">Const&nbsp;&nbsp;&nbsp;</span><span class="style_1">N&nbsp;</span><span class="style_13">=&nbsp;</span><span class="style_7">300</span><span class="style_13">;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_4">//&nbsp;Número&nbsp;máximo&nbsp;de&nbsp;archivos&nbsp;a&nbsp;listar&nbsp;en&nbsp;un&nbsp;directorio&nbsp;(ls)</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">LF&nbsp;</span><span class="style_13">=&nbsp;</span><span class="style_12">#10</span><span class="style_13">;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_4">//&nbsp;Caracter&nbsp;Line&nbsp;Feed.</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">CR&nbsp;</span><span class="style_13">=&nbsp;</span><span class="style_12">#13</span><span class="style_13">;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_4">//&nbsp;Caracter&nbsp;Carriage&nbsp;Return.</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">CRLF&nbsp;</span><span class="style_13">=&nbsp;</span><span class="style_1">CR&nbsp;</span><span class="style_13">+&nbsp;</span><span class="style_1">LF</span><span class="style_13">;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_4">//&nbsp;CRLF</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">Type&nbsp;</span><span class="style_1">vDirent&nbsp;</span><span class="style_13">=&nbsp;</span><span class="style_9">array&nbsp;</span><span class="style_13">[</span><span class="style_7">1</span><span class="style_13">..</span><span class="style_1">N</span><span class="style_13">]&nbsp;</span><span class="style_9">of&nbsp;</span><span class="style_1">Dirent</span><span class="style_13">;&nbsp;&nbsp;&nbsp;</span><span class="style_4">//&nbsp;Vector&nbsp;para&nbsp;almacenar&nbsp;nombres&nbsp;de&nbsp;archivos&nbsp;de&nbsp;un&nbsp;directorio&nbsp;y&nbsp;así&nbsp;ordenarlos.</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">var&nbsp;</span><span class="style_1">stdOutPut</span><span class="style_13">:&nbsp;</span><span class="style_1">Text</span><span class="style_13">;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_4">//&nbsp;Archivo&nbsp;de&nbsp;redirección&nbsp;de&nbsp;la&nbsp;salida&nbsp;estándar.</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">strOutPut</span><span class="style_13">:&nbsp;</span><span class="style_9">string</span><span class="style_13">;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_4">//&nbsp;Nombre&nbsp;del&nbsp;archivo&nbsp;de&nbsp;redirección.</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">newInPut&nbsp;</span><span class="style_13">:&nbsp;</span><span class="style_1">Text</span><span class="style_13">;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_4">//&nbsp;Redirección&nbsp;de&nbsp;la&nbsp;entrada&nbsp;estándar&nbsp;para&nbsp;comando&nbsp;pipe.</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">flagInPut</span><span class="style_13">:&nbsp;</span><span class="style_1">Boolean</span><span class="style_13">;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_4">//&nbsp;Se&nbsp;le&nbsp;asigna&nbsp;momentaneamente&nbsp;true&nbsp;durante&nbsp;un&nbsp;pipe.</span><br />
<br />
<br />
<span class="style_4">//&nbsp;&nbsp;UTILIDADES</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">function&nbsp;</span><span class="style_1">espacio</span><span class="style_13">(</span><span class="style_1">s</span><span class="style_13">:&nbsp;</span><span class="style_9">string</span><span class="style_13">):&nbsp;</span><span class="style_9">byte</span><span class="style_13">;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_4">//&nbsp;Devuelve&nbsp;la&nbsp;posición&nbsp;del&nbsp;primer&nbsp;espacio&nbsp;[&nbsp;]&nbsp;en&nbsp;un&nbsp;string.</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">function&nbsp;</span><span class="style_1">proxEspacio</span><span class="style_13">(</span><span class="style_1">n</span><span class="style_13">:&nbsp;</span><span class="style_9">byte</span><span class="style_13">;&nbsp;</span><span class="style_1">s</span><span class="style_13">:&nbsp;</span><span class="style_9">string</span><span class="style_13">):&nbsp;</span><span class="style_9">byte</span><span class="style_13">;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_4">//&nbsp;Devuelve&nbsp;la&nbsp;cantidad&nbsp;de&nbsp;caracteres&nbsp;que&nbsp;hay&nbsp;hasta&nbsp;el&nbsp;proximo&nbsp;espacio.</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">function&nbsp;</span><span class="style_1">parametro</span><span class="style_13">(</span><span class="style_1">s</span><span class="style_13">:&nbsp;</span><span class="style_9">string</span><span class="style_13">):&nbsp;</span><span class="style_9">byte</span><span class="style_13">;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_4">//&nbsp;Devuelve&nbsp;la&nbsp;posición&nbsp;del&nbsp;primer&nbsp;guión&nbsp;[-]&nbsp;en&nbsp;un&nbsp;string.</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">function&nbsp;</span><span class="style_1">parametro</span><span class="style_13">(</span><span class="style_1">n</span><span class="style_13">:&nbsp;</span><span class="style_9">byte</span><span class="style_13">;&nbsp;</span><span class="style_1">s</span><span class="style_13">:&nbsp;</span><span class="style_9">string</span><span class="style_13">):&nbsp;</span><span class="style_9">string</span><span class="style_13">;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_4">//&nbsp;Devuelve&nbsp;el&nbsp;enésimo&nbsp;parámetro&nbsp;del&nbsp;string&nbsp;s,&nbsp;comenzado&nbsp;con&nbsp;guión&nbsp;[-].</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">function&nbsp;</span><span class="style_1">argumento</span><span class="style_13">(</span><span class="style_1">n</span><span class="style_13">:&nbsp;</span><span class="style_9">byte</span><span class="style_13">;&nbsp;</span><span class="style_1">s</span><span class="style_13">:&nbsp;</span><span class="style_9">string</span><span class="style_13">):&nbsp;</span><span class="style_9">string</span><span class="style_13">;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_4">//&nbsp;Devuelve&nbsp;el&nbsp;enésimo&nbsp;argumento&nbsp;del&nbsp;string&nbsp;s.</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">function&nbsp;</span><span class="style_1">cantParametros</span><span class="style_13">(</span><span class="style_1">s</span><span class="style_13">:&nbsp;</span><span class="style_9">string</span><span class="style_13">):&nbsp;</span><span class="style_9">byte</span><span class="style_13">;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_4">//&nbsp;Devuelve&nbsp;la&nbsp;cantidad&nbsp;de&nbsp;parámetros&nbsp;que&nbsp;posee&nbsp;un&nbsp;string,&nbsp;determina&nbsp;con&nbsp;[-].</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">function&nbsp;</span><span class="style_1">cantArgumentos</span><span class="style_13">(</span><span class="style_1">s</span><span class="style_13">:&nbsp;</span><span class="style_9">string</span><span class="style_13">):&nbsp;</span><span class="style_9">byte</span><span class="style_13">;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_4">//&nbsp;Devuelve&nbsp;la&nbsp;cantidad&nbsp;de&nbsp;argumentos&nbsp;que&nbsp;posee&nbsp;un&nbsp;string.</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">function&nbsp;</span><span class="style_1">puntos</span><span class="style_13">(</span><span class="style_1">s</span><span class="style_13">:&nbsp;</span><span class="style_9">string</span><span class="style_13">):&nbsp;</span><span class="style_9">integer</span><span class="style_13">;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_4">//&nbsp;Cantidad&nbsp;de&nbsp;puntos&nbsp;'.'&nbsp;en&nbsp;un&nbsp;string.</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">function&nbsp;</span><span class="style_1">dirActual</span><span class="style_13">:&nbsp;</span><span class="style_9">string</span><span class="style_13">;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_4">//&nbsp;Devuelve&nbsp;la&nbsp;dirección&nbsp;de&nbsp;trabajo&nbsp;actual.</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">function&nbsp;</span><span class="style_1">dirHome</span><span class="style_13">:&nbsp;</span><span class="style_9">string</span><span class="style_13">;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_4">//&nbsp;Devuelve&nbsp;el&nbsp;directorio&nbsp;Home.&nbsp;Por&nbsp;defecto&nbsp;/home/user.</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">function&nbsp;</span><span class="style_1">strSin</span><span class="style_13">(</span><span class="style_1">param1</span><span class="style_13">,&nbsp;</span><span class="style_1">param2</span><span class="style_13">:&nbsp;</span><span class="style_9">string</span><span class="style_13">):&nbsp;</span><span class="style_9">string</span><span class="style_13">;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_4">//&nbsp;elimina&nbsp;param2&nbsp;de&nbsp;la&nbsp;cadena&nbsp;param1.</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">procedure&nbsp;</span><span class="style_1">burbujaDirent</span><span class="style_13">(</span><span class="style_9">var&nbsp;</span><span class="style_1">v</span><span class="style_13">:&nbsp;</span><span class="style_1">vDirent</span><span class="style_13">;&nbsp;</span><span class="style_1">max</span><span class="style_13">:&nbsp;</span><span class="style_9">integer</span><span class="style_13">);&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_4">//&nbsp;ordena&nbsp;los&nbsp;archivos&nbsp;listados&nbsp;por&nbsp;ls.&nbsp;Algoritmo&nbsp;burbuja.</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">function&nbsp;</span><span class="style_1">obtenerDirectorio</span><span class="style_13">(</span><span class="style_1">desde</span><span class="style_13">:&nbsp;</span><span class="style_9">integer</span><span class="style_13">;&nbsp;</span><span class="style_1">ENTRADA</span><span class="style_13">:&nbsp;</span><span class="style_9">string</span><span class="style_13">):&nbsp;</span><span class="style_9">string</span><span class="style_13">;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_4">//&nbsp;Extrae&nbsp;el&nbsp;path&nbsp;de&nbsp;una&nbsp;cadena&nbsp;de&nbsp;entrada.</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">function&nbsp;</span><span class="style_1">tieneParametro</span><span class="style_13">(</span><span class="style_1">p</span><span class="style_13">,</span><span class="style_1">s</span><span class="style_13">:&nbsp;</span><span class="style_9">string</span><span class="style_13">):&nbsp;</span><span class="style_1">boolean</span><span class="style_13">;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_4">//&nbsp;Se&nbsp;le&nbsp;pasa&nbsp;un&nbsp;parámetro&nbsp;(e.j.:&nbsp;-l)&nbsp;y&nbsp;responde&nbsp;si&nbsp;la&nbsp;cadena&nbsp;lo&nbsp;contine&nbsp;o&nbsp;no.</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">function&nbsp;</span><span class="style_1">redireccion</span><span class="style_13">(</span><span class="style_1">s</span><span class="style_13">:&nbsp;</span><span class="style_9">string</span><span class="style_13">):&nbsp;</span><span class="style_1">boolean</span><span class="style_13">;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_4">//&nbsp;Devuelve&nbsp;true&nbsp;si&nbsp;encuentra&nbsp;los&nbsp;operadores&nbsp;'&gt;'&nbsp;o&nbsp;'&gt;&gt;'&nbsp;en&nbsp;la&nbsp;cadena.</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">function&nbsp;</span><span class="style_1">tuberia</span><span class="style_13">(</span><span class="style_1">s</span><span class="style_13">:&nbsp;</span><span class="style_9">string</span><span class="style_13">):&nbsp;</span><span class="style_1">boolean</span><span class="style_13">;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_4">//&nbsp;Devuelve&nbsp;true&nbsp;si&nbsp;encuentra&nbsp;el&nbsp;operador&nbsp;'|'&nbsp;en&nbsp;una&nbsp;cadena.</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">function&nbsp;</span><span class="style_1">error</span><span class="style_13">(</span><span class="style_1">n</span><span class="style_13">:&nbsp;</span><span class="style_9">integer</span><span class="style_13">):&nbsp;</span><span class="style_9">string</span><span class="style_13">;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_4">//&nbsp;Devuelve&nbsp;el&nbsp;mensaje&nbsp;de&nbsp;error&nbsp;&lt;n&gt;.</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<br />
<span class="style_9">IMPLEMENTATION</span><br />
<br />
<br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">function&nbsp;</span><span class="style_1">espacio</span><span class="style_13">(</span><span class="style_1">s</span><span class="style_13">:&nbsp;</span><span class="style_9">string</span><span class="style_13">):&nbsp;</span><span class="style_9">byte</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">var&nbsp;</span><span class="style_1">I</span><span class="style_13">:&nbsp;</span><span class="style_9">integer</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">Begin</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">espacio&nbsp;</span><span class="style_13">:=&nbsp;</span><span class="style_7">0</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">I</span><span class="style_13">:=&nbsp;</span><span class="style_7">0</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">repeat</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">inc</span><span class="style_13">(</span><span class="style_1">I</span><span class="style_13">);</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">if&nbsp;</span><span class="style_1">s</span><span class="style_13">[</span><span class="style_1">I</span><span class="style_13">]=</span><span class="style_12">#32&nbsp;</span><span class="style_9">then&nbsp;</span><span class="style_1">espacio</span><span class="style_13">:=&nbsp;</span><span class="style_1">I</span><span class="style_13">;&nbsp;</span><span class="style_4">//&nbsp;#32&nbsp;=&nbsp;espacio&nbsp;'&nbsp;'</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">until&nbsp;</span><span class="style_13">(</span><span class="style_1">espacio&nbsp;</span><span class="style_13">&lt;&gt;&nbsp;</span><span class="style_7">0</span><span class="style_13">)&nbsp;</span><span class="style_9">or&nbsp;</span><span class="style_13">(</span><span class="style_1">I</span><span class="style_13">=</span><span class="style_1">length</span><span class="style_13">(</span><span class="style_1">s</span><span class="style_13">));</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">if&nbsp;</span><span class="style_1">espacio&nbsp;</span><span class="style_13">=&nbsp;</span><span class="style_7">0&nbsp;</span><span class="style_9">then&nbsp;</span><span class="style_1">espacio&nbsp;</span><span class="style_13">:=&nbsp;(</span><span class="style_1">length</span><span class="style_13">(</span><span class="style_1">s</span><span class="style_13">)&nbsp;+&nbsp;</span><span class="style_7">1</span><span class="style_13">);</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">End</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<br />
&nbsp;&nbsp;&nbsp;&nbsp;<br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">function&nbsp;</span><span class="style_1">proxEspacio</span><span class="style_13">(</span><span class="style_1">n</span><span class="style_13">:&nbsp;</span><span class="style_9">byte</span><span class="style_13">;&nbsp;</span><span class="style_1">s</span><span class="style_13">:&nbsp;</span><span class="style_9">string</span><span class="style_13">):&nbsp;</span><span class="style_9">byte</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">var&nbsp;</span><span class="style_1">aux</span><span class="style_13">:&nbsp;</span><span class="style_9">string</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">Begin</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">aux</span><span class="style_13">:=&nbsp;</span><span class="style_1">copy</span><span class="style_13">(</span><span class="style_1">s</span><span class="style_13">,</span><span class="style_1">n</span><span class="style_13">,</span><span class="style_1">length</span><span class="style_13">(</span><span class="style_1">s</span><span class="style_13">));</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">proxEspacio</span><span class="style_13">:=&nbsp;</span><span class="style_1">espacio</span><span class="style_13">(</span><span class="style_1">aux</span><span class="style_13">);</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">End</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<br />
&nbsp;&nbsp;&nbsp;&nbsp;<br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">function&nbsp;</span><span class="style_1">parametro</span><span class="style_13">(</span><span class="style_1">s</span><span class="style_13">:&nbsp;</span><span class="style_9">string</span><span class="style_13">):&nbsp;</span><span class="style_9">byte</span><span class="style_13">;&nbsp;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">var&nbsp;</span><span class="style_1">I</span><span class="style_13">:&nbsp;</span><span class="style_9">integer</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">Begin</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">parametro&nbsp;</span><span class="style_13">:=&nbsp;</span><span class="style_7">0</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">I</span><span class="style_13">:=&nbsp;</span><span class="style_7">0</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">repeat</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">inc</span><span class="style_13">(</span><span class="style_1">I</span><span class="style_13">);</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">if&nbsp;</span><span class="style_1">s</span><span class="style_13">[</span><span class="style_1">I</span><span class="style_13">]=</span><span class="style_12">#45&nbsp;</span><span class="style_9">then&nbsp;</span><span class="style_1">parametro</span><span class="style_13">:=&nbsp;</span><span class="style_1">I</span><span class="style_13">;&nbsp;</span><span class="style_4">//&nbsp;#45&nbsp;=&nbsp;Guión&nbsp;'-'</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">until&nbsp;</span><span class="style_13">(</span><span class="style_1">parametro&nbsp;</span><span class="style_13">&lt;&gt;&nbsp;</span><span class="style_7">0</span><span class="style_13">)&nbsp;</span><span class="style_9">or&nbsp;</span><span class="style_13">(</span><span class="style_1">I</span><span class="style_13">=</span><span class="style_1">length</span><span class="style_13">(</span><span class="style_1">s</span><span class="style_13">));</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">End</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<br />
&nbsp;&nbsp;&nbsp;&nbsp;<br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">function&nbsp;</span><span class="style_1">cantParametros</span><span class="style_13">(</span><span class="style_1">s</span><span class="style_13">:&nbsp;</span><span class="style_9">string</span><span class="style_13">):&nbsp;</span><span class="style_9">byte</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">var&nbsp;</span><span class="style_1">I</span><span class="style_13">,</span><span class="style_1">contador</span><span class="style_13">:&nbsp;</span><span class="style_9">integer</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">Begin</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">contador</span><span class="style_13">:=&nbsp;</span><span class="style_7">0</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">for&nbsp;</span><span class="style_1">I</span><span class="style_13">:=</span><span class="style_7">1&nbsp;</span><span class="style_9">to&nbsp;</span><span class="style_1">length</span><span class="style_13">(</span><span class="style_1">s</span><span class="style_13">)&nbsp;</span><span class="style_9">do</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">if&nbsp;</span><span class="style_1">s</span><span class="style_13">[</span><span class="style_1">I</span><span class="style_13">]=</span><span class="style_12">#45&nbsp;</span><span class="style_9">then&nbsp;</span><span class="style_1">inc</span><span class="style_13">(</span><span class="style_1">contador</span><span class="style_13">);</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">cantParametros&nbsp;</span><span class="style_13">:=&nbsp;</span><span class="style_1">contador</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">End</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<br />
&nbsp;&nbsp;&nbsp;&nbsp;<br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">function&nbsp;</span><span class="style_1">cantArgumentos</span><span class="style_13">(</span><span class="style_1">s</span><span class="style_13">:&nbsp;</span><span class="style_9">string</span><span class="style_13">):&nbsp;</span><span class="style_9">byte</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">Begin</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">cantArgumentos</span><span class="style_13">:=&nbsp;</span><span class="style_7">0</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">while&nbsp;</span><span class="style_1">s&nbsp;</span><span class="style_13">&lt;&gt;&nbsp;</span><span class="style_10">''&nbsp;</span><span class="style_9">do</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">Begin</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">cantArgumentos&nbsp;</span><span class="style_13">:=&nbsp;</span><span class="style_1">cantArgumentos&nbsp;</span><span class="style_13">+&nbsp;</span><span class="style_7">1</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">s</span><span class="style_13">:=&nbsp;</span><span class="style_1">copy</span><span class="style_13">(</span><span class="style_1">s</span><span class="style_13">,</span><span class="style_1">espacio</span><span class="style_13">(</span><span class="style_1">s</span><span class="style_13">)+</span><span class="style_7">1</span><span class="style_13">,&nbsp;</span><span class="style_1">length</span><span class="style_13">(</span><span class="style_1">s</span><span class="style_13">));</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">End</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">End</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<br />
&nbsp;&nbsp;&nbsp;&nbsp;<br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">function&nbsp;</span><span class="style_1">parametro</span><span class="style_13">(</span><span class="style_1">n</span><span class="style_13">:&nbsp;</span><span class="style_9">byte</span><span class="style_13">;&nbsp;</span><span class="style_1">s</span><span class="style_13">:&nbsp;</span><span class="style_9">string</span><span class="style_13">):&nbsp;</span><span class="style_9">string</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_2">{</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_2">Condición:&nbsp;Máximo&nbsp;tres&nbsp;parámetros.</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_2">}</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">var&nbsp;</span><span class="style_1">aux</span><span class="style_13">:&nbsp;</span><span class="style_9">string</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">Begin</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">aux</span><span class="style_13">:=&nbsp;</span><span class="style_1">copy</span><span class="style_13">(</span><span class="style_1">s</span><span class="style_13">,</span><span class="style_1">parametro</span><span class="style_13">(</span><span class="style_1">s</span><span class="style_13">),</span><span class="style_1">length</span><span class="style_13">(</span><span class="style_1">s</span><span class="style_13">));</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">if&nbsp;</span><span class="style_1">cantParametros</span><span class="style_13">(</span><span class="style_1">aux</span><span class="style_13">)&nbsp;&lt;&nbsp;</span><span class="style_1">n&nbsp;</span><span class="style_9">then&nbsp;</span><span class="style_1">parametro</span><span class="style_13">:=</span><span class="style_10">''</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">if&nbsp;</span><span class="style_1">n&nbsp;</span><span class="style_13">=&nbsp;</span><span class="style_7">1&nbsp;</span><span class="style_9">then&nbsp;</span><span class="style_1">parametro</span><span class="style_13">:=&nbsp;(</span><span class="style_1">copy</span><span class="style_13">(</span><span class="style_1">aux</span><span class="style_13">,</span><span class="style_7">1</span><span class="style_13">,</span><span class="style_1">espacio</span><span class="style_13">(</span><span class="style_1">aux</span><span class="style_13">)-</span><span class="style_7">1</span><span class="style_13">));</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">if&nbsp;</span><span class="style_1">n&nbsp;</span><span class="style_13">=&nbsp;</span><span class="style_7">2&nbsp;</span><span class="style_9">then&nbsp;</span><span class="style_1">parametro</span><span class="style_13">:=&nbsp;(</span><span class="style_1">copy</span><span class="style_13">(</span><span class="style_1">aux</span><span class="style_13">,</span><span class="style_7">4</span><span class="style_13">,</span><span class="style_1">espacio</span><span class="style_13">(</span><span class="style_1">aux</span><span class="style_13">)-</span><span class="style_7">1</span><span class="style_13">));</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">if&nbsp;</span><span class="style_1">n&nbsp;</span><span class="style_13">=&nbsp;</span><span class="style_7">3&nbsp;</span><span class="style_9">then&nbsp;</span><span class="style_1">parametro</span><span class="style_13">:=&nbsp;(</span><span class="style_1">copy</span><span class="style_13">(</span><span class="style_1">aux</span><span class="style_13">,</span><span class="style_7">7</span><span class="style_13">,</span><span class="style_1">espacio</span><span class="style_13">(</span><span class="style_1">aux</span><span class="style_13">)-</span><span class="style_7">1</span><span class="style_13">));</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">End</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<br />
&nbsp;&nbsp;&nbsp;&nbsp;<br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">function&nbsp;</span><span class="style_1">argumento</span><span class="style_13">(</span><span class="style_1">n</span><span class="style_13">:&nbsp;</span><span class="style_9">byte</span><span class="style_13">;&nbsp;</span><span class="style_1">s</span><span class="style_13">:&nbsp;</span><span class="style_9">string</span><span class="style_13">):&nbsp;</span><span class="style_9">string</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">var&nbsp;</span><span class="style_1">aux</span><span class="style_13">,&nbsp;</span><span class="style_1">aux2</span><span class="style_13">:&nbsp;</span><span class="style_9">string</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">Begin&nbsp;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">if&nbsp;</span><span class="style_1">cantArgumentos</span><span class="style_13">(</span><span class="style_1">s</span><span class="style_13">)&nbsp;&lt;&nbsp;</span><span class="style_1">n&nbsp;</span><span class="style_9">then&nbsp;</span><span class="style_1">argumento</span><span class="style_13">:=&nbsp;</span><span class="style_10">''</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">else</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">begin</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">aux</span><span class="style_13">:=&nbsp;</span><span class="style_1">copy</span><span class="style_13">(</span><span class="style_1">s</span><span class="style_13">,</span><span class="style_7">1</span><span class="style_13">,</span><span class="style_1">espacio</span><span class="style_13">(</span><span class="style_1">s</span><span class="style_13">)-</span><span class="style_7">1</span><span class="style_13">);</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">if&nbsp;</span><span class="style_1">n&nbsp;</span><span class="style_13">=&nbsp;</span><span class="style_7">1&nbsp;</span><span class="style_9">then&nbsp;</span><span class="style_1">argumento</span><span class="style_13">:=&nbsp;</span><span class="style_1">aux</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">aux2</span><span class="style_13">:=&nbsp;</span><span class="style_1">copy</span><span class="style_13">(</span><span class="style_1">strSin</span><span class="style_13">(</span><span class="style_1">s</span><span class="style_13">,</span><span class="style_1">aux</span><span class="style_13">),</span><span class="style_7">2</span><span class="style_13">,</span><span class="style_1">length</span><span class="style_13">(</span><span class="style_1">s</span><span class="style_13">));</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">if&nbsp;</span><span class="style_1">n&nbsp;</span><span class="style_13">=&nbsp;</span><span class="style_7">2&nbsp;</span><span class="style_9">then&nbsp;</span><span class="style_1">argumento</span><span class="style_13">:=&nbsp;</span><span class="style_1">copy</span><span class="style_13">(</span><span class="style_1">aux2</span><span class="style_13">,</span><span class="style_7">1</span><span class="style_13">,</span><span class="style_1">espacio</span><span class="style_13">(</span><span class="style_1">aux2</span><span class="style_13">)-</span><span class="style_7">1</span><span class="style_13">);</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">if&nbsp;</span><span class="style_1">n&nbsp;</span><span class="style_13">=&nbsp;</span><span class="style_7">3&nbsp;</span><span class="style_9">then&nbsp;</span><span class="style_1">argumento</span><span class="style_13">:=&nbsp;</span><span class="style_1">copy</span><span class="style_13">(</span><span class="style_1">aux2</span><span class="style_13">,</span><span class="style_1">espacio</span><span class="style_13">(</span><span class="style_1">aux2</span><span class="style_13">)+</span><span class="style_7">1</span><span class="style_13">,</span><span class="style_1">length</span><span class="style_13">(</span><span class="style_1">s</span><span class="style_13">));</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">end</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">end</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">function&nbsp;</span><span class="style_1">puntos</span><span class="style_13">(</span><span class="style_1">s</span><span class="style_13">:&nbsp;</span><span class="style_9">string</span><span class="style_13">):&nbsp;</span><span class="style_9">integer</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">var&nbsp;</span><span class="style_1">I</span><span class="style_13">:&nbsp;</span><span class="style_9">integer</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">Begin</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">puntos</span><span class="style_13">:=&nbsp;</span><span class="style_7">0</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">for&nbsp;</span><span class="style_1">I</span><span class="style_13">:=&nbsp;</span><span class="style_7">1&nbsp;</span><span class="style_9">to&nbsp;</span><span class="style_1">length</span><span class="style_13">(</span><span class="style_1">s</span><span class="style_13">)&nbsp;</span><span class="style_9">do</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">if&nbsp;</span><span class="style_1">s</span><span class="style_13">[</span><span class="style_1">I</span><span class="style_13">]&nbsp;=&nbsp;</span><span class="style_12">#46&nbsp;</span><span class="style_9">then&nbsp;</span><span class="style_1">puntos</span><span class="style_13">:=&nbsp;</span><span class="style_1">puntos&nbsp;</span><span class="style_13">+&nbsp;</span><span class="style_7">1</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">End</span><span class="style_13">;</span><br />
<br />
<br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">function&nbsp;</span><span class="style_1">dirActual</span><span class="style_13">:&nbsp;</span><span class="style_9">string</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">Begin</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">getDir</span><span class="style_13">(</span><span class="style_7">0</span><span class="style_13">,</span><span class="style_1">dirActual</span><span class="style_13">);</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">End</span><span class="style_13">;</span><br />
<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">function&nbsp;</span><span class="style_1">dirHome</span><span class="style_13">:&nbsp;</span><span class="style_9">string</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">Begin</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">dirHome</span><span class="style_13">:=&nbsp;</span><span class="style_1">fpGetEnv</span><span class="style_13">(</span><span class="style_10">'HOME'</span><span class="style_13">);</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">End</span><span class="style_13">;</span><br />
<br />
<br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">function&nbsp;</span><span class="style_1">strSin</span><span class="style_13">(</span><span class="style_1">param1</span><span class="style_13">,&nbsp;</span><span class="style_1">param2</span><span class="style_13">:&nbsp;</span><span class="style_9">string</span><span class="style_13">):&nbsp;</span><span class="style_9">string</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">Begin</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">strSin</span><span class="style_13">:=&nbsp;</span><span class="style_1">rightStr</span><span class="style_13">(</span><span class="style_1">param1</span><span class="style_13">,((</span><span class="style_1">length</span><span class="style_13">(</span><span class="style_1">param1</span><span class="style_13">))-(</span><span class="style_1">length</span><span class="style_13">(</span><span class="style_1">param2</span><span class="style_13">))));</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">End</span><span class="style_13">;</span><br />
<br />
<br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">procedure&nbsp;</span><span class="style_1">burbujaDirent</span><span class="style_13">(</span><span class="style_9">var&nbsp;</span><span class="style_1">v</span><span class="style_13">:&nbsp;</span><span class="style_1">vDirent</span><span class="style_13">;&nbsp;</span><span class="style_1">max</span><span class="style_13">:&nbsp;</span><span class="style_9">integer</span><span class="style_13">);</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">var&nbsp;</span><span class="style_1">I</span><span class="style_13">,</span><span class="style_1">J</span><span class="style_13">:&nbsp;</span><span class="style_9">integer</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">aux</span><span class="style_13">:&nbsp;</span><span class="style_1">Dirent</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">Begin</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">for&nbsp;</span><span class="style_1">I</span><span class="style_13">:=&nbsp;</span><span class="style_7">1&nbsp;</span><span class="style_9">to&nbsp;</span><span class="style_1">max</span><span class="style_13">-</span><span class="style_7">1&nbsp;</span><span class="style_9">do</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">for&nbsp;</span><span class="style_1">J</span><span class="style_13">:=&nbsp;</span><span class="style_7">1&nbsp;</span><span class="style_9">to&nbsp;</span><span class="style_1">max</span><span class="style_13">-</span><span class="style_1">I&nbsp;</span><span class="style_9">do</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">if&nbsp;</span><span class="style_1">upcase</span><span class="style_13">(</span><span class="style_1">strPas</span><span class="style_13">(</span><span class="style_1">v</span><span class="style_13">[</span><span class="style_1">J</span><span class="style_13">].</span><span class="style_1">d_name</span><span class="style_13">))&nbsp;&gt;&nbsp;</span><span class="style_1">upcase</span><span class="style_13">(</span><span class="style_1">strPas</span><span class="style_13">(</span><span class="style_1">v</span><span class="style_13">[</span><span class="style_1">J</span><span class="style_13">+</span><span class="style_7">1</span><span class="style_13">].</span><span class="style_1">d_name</span><span class="style_13">))&nbsp;</span><span class="style_9">then</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">Begin</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">aux&nbsp;</span><span class="style_13">:=&nbsp;</span><span class="style_1">v</span><span class="style_13">[</span><span class="style_1">J</span><span class="style_13">+</span><span class="style_7">1</span><span class="style_13">];</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">v</span><span class="style_13">[</span><span class="style_1">J</span><span class="style_13">+</span><span class="style_7">1</span><span class="style_13">]:=&nbsp;</span><span class="style_1">v</span><span class="style_13">[</span><span class="style_1">J</span><span class="style_13">];</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">v</span><span class="style_13">[</span><span class="style_1">J</span><span class="style_13">]&nbsp;:=&nbsp;</span><span class="style_1">aux</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">End</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">End</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<br />
&nbsp;&nbsp;&nbsp;&nbsp;<br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">function&nbsp;</span><span class="style_1">obtenerDirectorio</span><span class="style_13">(</span><span class="style_1">desde</span><span class="style_13">:&nbsp;</span><span class="style_9">integer</span><span class="style_13">;&nbsp;</span><span class="style_1">ENTRADA</span><span class="style_13">:&nbsp;</span><span class="style_9">string</span><span class="style_13">):&nbsp;</span><span class="style_9">string</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">var&nbsp;</span><span class="style_1">i</span><span class="style_13">,</span><span class="style_1">principio</span><span class="style_13">:&nbsp;</span><span class="style_9">integer</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">aux</span><span class="style_13">:&nbsp;</span><span class="style_9">string</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">Begin</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">i</span><span class="style_13">:=&nbsp;</span><span class="style_7">0</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">principio</span><span class="style_13">:=&nbsp;</span><span class="style_7">0</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">aux</span><span class="style_13">:=&nbsp;</span><span class="style_1">copy</span><span class="style_13">(</span><span class="style_1">ENTRADA</span><span class="style_13">,</span><span class="style_1">desde</span><span class="style_13">,</span><span class="style_1">length</span><span class="style_13">(</span><span class="style_1">ENTRADA</span><span class="style_13">));</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">repeat</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">inc</span><span class="style_13">(</span><span class="style_1">i</span><span class="style_13">);</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">case&nbsp;</span><span class="style_1">aux</span><span class="style_13">[</span><span class="style_1">i</span><span class="style_13">]&nbsp;</span><span class="style_9">of</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_10">'-'</span><span class="style_13">:&nbsp;</span><span class="style_1">inc</span><span class="style_13">(</span><span class="style_1">i</span><span class="style_13">);</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_10">'&nbsp;'</span><span class="style_13">:&nbsp;;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">else&nbsp;</span><span class="style_1">principio</span><span class="style_13">:=&nbsp;</span><span class="style_1">i</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">end</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">until&nbsp;</span><span class="style_13">((</span><span class="style_1">principio&nbsp;</span><span class="style_13">&lt;&gt;&nbsp;</span><span class="style_7">0</span><span class="style_13">)&nbsp;</span><span class="style_9">or&nbsp;</span><span class="style_13">(</span><span class="style_1">i&nbsp;</span><span class="style_13">=&nbsp;</span><span class="style_1">length</span><span class="style_13">(</span><span class="style_1">aux</span><span class="style_13">)));</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">if&nbsp;</span><span class="style_1">principio&nbsp;</span><span class="style_13">=&nbsp;</span><span class="style_7">0&nbsp;</span><span class="style_9">then&nbsp;</span><span class="style_1">obtenerDirectorio</span><span class="style_13">:=&nbsp;</span><span class="style_10">''</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">else&nbsp;</span><span class="style_1">obtenerDirectorio</span><span class="style_13">:=&nbsp;</span><span class="style_1">copy</span><span class="style_13">(</span><span class="style_1">aux</span><span class="style_13">,</span><span class="style_1">principio</span><span class="style_13">,</span><span class="style_1">length</span><span class="style_13">(</span><span class="style_1">aux</span><span class="style_13">));</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">End</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<br />
&nbsp;&nbsp;&nbsp;&nbsp;<br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">function&nbsp;</span><span class="style_1">tieneParametro</span><span class="style_13">(</span><span class="style_1">p</span><span class="style_13">,</span><span class="style_1">s</span><span class="style_13">:&nbsp;</span><span class="style_9">string</span><span class="style_13">):&nbsp;</span><span class="style_1">boolean</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">var&nbsp;</span><span class="style_1">i</span><span class="style_13">:&nbsp;</span><span class="style_9">integer</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">Begin</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">tieneParametro&nbsp;</span><span class="style_13">:=&nbsp;</span><span class="style_1">false</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">if&nbsp;</span><span class="style_1">cantParametros</span><span class="style_13">(</span><span class="style_1">s</span><span class="style_13">)&nbsp;&gt;&nbsp;</span><span class="style_7">0&nbsp;</span><span class="style_9">then</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">begin</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">for&nbsp;</span><span class="style_1">i</span><span class="style_13">:=&nbsp;</span><span class="style_7">1&nbsp;</span><span class="style_9">to&nbsp;</span><span class="style_1">cantParametros</span><span class="style_13">(</span><span class="style_1">s</span><span class="style_13">)&nbsp;</span><span class="style_9">do</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">if&nbsp;</span><span class="style_1">upcase</span><span class="style_13">(</span><span class="style_1">parametro</span><span class="style_13">(</span><span class="style_1">i</span><span class="style_13">,</span><span class="style_1">s</span><span class="style_13">))&nbsp;=&nbsp;</span><span class="style_1">upcase</span><span class="style_13">(</span><span class="style_1">p</span><span class="style_13">)&nbsp;</span><span class="style_9">then&nbsp;</span><span class="style_1">tieneParametro</span><span class="style_13">:=&nbsp;</span><span class="style_1">true</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">end</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">End</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<br />
&nbsp;&nbsp;&nbsp;&nbsp;<br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">function&nbsp;</span><span class="style_1">redireccion</span><span class="style_13">(</span><span class="style_1">s</span><span class="style_13">:&nbsp;</span><span class="style_9">string</span><span class="style_13">):&nbsp;</span><span class="style_1">boolean</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">Begin</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">redireccion</span><span class="style_13">:=&nbsp;(</span><span class="style_1">pos</span><span class="style_13">(</span><span class="style_10">'&nbsp;&gt;&nbsp;'</span><span class="style_13">,</span><span class="style_1">s</span><span class="style_13">)&nbsp;&lt;&gt;&nbsp;</span><span class="style_7">0</span><span class="style_13">)&nbsp;</span><span class="style_9">or&nbsp;</span><span class="style_13">(</span><span class="style_1">pos</span><span class="style_13">(</span><span class="style_10">'&nbsp;&gt;&gt;&nbsp;'</span><span class="style_13">,</span><span class="style_1">s</span><span class="style_13">)&nbsp;&lt;&gt;&nbsp;</span><span class="style_7">0</span><span class="style_13">);</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">End</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<br />
&nbsp;&nbsp;&nbsp;&nbsp;<br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">function&nbsp;</span><span class="style_1">tuberia</span><span class="style_13">(</span><span class="style_1">s</span><span class="style_13">:&nbsp;</span><span class="style_9">string</span><span class="style_13">):&nbsp;</span><span class="style_1">boolean</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">Begin</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">tuberia</span><span class="style_13">:=&nbsp;(</span><span class="style_1">pos</span><span class="style_13">(</span><span class="style_10">'&nbsp;|&nbsp;'</span><span class="style_13">,</span><span class="style_1">s</span><span class="style_13">)&nbsp;&lt;&gt;&nbsp;</span><span class="style_7">0</span><span class="style_13">);</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">End</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<br />
&nbsp;&nbsp;&nbsp;&nbsp;<br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">function&nbsp;</span><span class="style_1">error</span><span class="style_13">(</span><span class="style_1">n</span><span class="style_13">:&nbsp;</span><span class="style_9">integer</span><span class="style_13">):&nbsp;</span><span class="style_9">string</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">Begin</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">case&nbsp;</span><span class="style_1">n&nbsp;</span><span class="style_9">of</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_7">1</span><span class="style_13">:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_1">error</span><span class="style_13">:=&nbsp;</span><span class="style_10">'Error&nbsp;nº&nbsp;1:&nbsp;Parámetros&nbsp;insuficientes.'</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_7">2</span><span class="style_13">:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_1">error</span><span class="style_13">:=&nbsp;</span><span class="style_10">'Error&nbsp;nº&nbsp;2:&nbsp;No&nbsp;se&nbsp;puede&nbsp;reonocer&nbsp;el&nbsp;comando,&nbsp;o&nbsp;los&nbsp;parámetros&nbsp;son&nbsp;incorrectos.'</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_7">3</span><span class="style_13">:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_1">error</span><span class="style_13">:=&nbsp;</span><span class="style_10">'Error&nbsp;nº&nbsp;3:&nbsp;Falla&nbsp;en&nbsp;el&nbsp;Fork,&nbsp;no&nbsp;es&nbsp;posible&nbsp;ejecutar&nbsp;el&nbsp;nuevo&nbsp;proceso.'</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_7">4</span><span class="style_13">:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_1">error</span><span class="style_13">:=&nbsp;</span><span class="style_10">'Error&nbsp;nº&nbsp;4:&nbsp;El&nbsp;directorio&nbsp;no&nbsp;existe,&nbsp;o&nbsp;no&nbsp;puede&nbsp;ser&nbsp;accedido.'</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_7">5</span><span class="style_13">:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_1">error</span><span class="style_13">:=&nbsp;</span><span class="style_10">'Comando&nbsp;no&nbsp;reconocido.'</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_7">6</span><span class="style_13">:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_1">error</span><span class="style_13">:=&nbsp;</span><span class="style_10">'Error&nbsp;nº&nbsp;6:&nbsp;Error&nbsp;en&nbsp;Exec,&nbsp;no&nbsp;es&nbsp;posible&nbsp;ejecutar&nbsp;el&nbsp;proceso.'</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_7">7</span><span class="style_13">:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_1">error</span><span class="style_13">:=&nbsp;</span><span class="style_10">'Error&nbsp;nº&nbsp;7:&nbsp;El&nbsp;programa&nbsp;no&nbsp;se&nbsp;encuentra&nbsp;en&nbsp;el&nbsp;Path.'</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_7">8</span><span class="style_13">:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_1">error</span><span class="style_13">:=&nbsp;</span><span class="style_10">'Error&nbsp;nº&nbsp;8:&nbsp;Parámetros&nbsp;incorrectos.'</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_7">9</span><span class="style_13">:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_1">error</span><span class="style_13">:=&nbsp;</span><span class="style_10">'Error&nbsp;nº&nbsp;9:&nbsp;Los&nbsp;parámetros&nbsp;deben&nbsp;ser&nbsp;de&nbsp;tipo&nbsp;numérico.'</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_7">10</span><span class="style_13">:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_1">error</span><span class="style_13">:=&nbsp;</span><span class="style_10">'Error&nbsp;nº&nbsp;10:&nbsp;Error&nbsp;al&nbsp;intentar&nbsp;abrir&nbsp;el/los&nbsp;archivo(s).'</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_7">11</span><span class="style_13">:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_1">error</span><span class="style_13">:=&nbsp;</span><span class="style_10">'Error&nbsp;de&nbsp;redirección&nbsp;de&nbsp;la&nbsp;salida&nbsp;estándar&nbsp;-&nbsp;Operador&nbsp;''&gt;'''</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_7">12</span><span class="style_13">:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_1">error</span><span class="style_13">:=&nbsp;</span><span class="style_10">'Error&nbsp;de&nbsp;redirección&nbsp;de&nbsp;la&nbsp;salida&nbsp;estándar&nbsp;-&nbsp;Operador&nbsp;''&gt;&gt;'''</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_7">13</span><span class="style_13">:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_1">error</span><span class="style_13">:=&nbsp;</span><span class="style_10">'Error&nbsp;al&nbsp;intentar&nbsp;crear&nbsp;tuberías.'</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">else&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_1">error</span><span class="style_13">:=&nbsp;</span><span class="style_10">'Error&nbsp;desconocido.'</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">end</span><span class="style_13">;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">textattr</span><span class="style_13">:=</span><span class="style_8">$04</span><span class="style_13">;&nbsp;</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">writeln</span><span class="style_13">(</span><span class="style_1">error</span><span class="style_13">);</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_9">End</span><span class="style_13">;</span><br />
<br />
<span class="style_9">BEGIN</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">strOutPut</span><span class="style_13">:=&nbsp;</span><span class="style_10">''</span><span class="style_13">;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="style_4">//&nbsp;StrOutPut&nbsp;refiere&nbsp;a&nbsp;la&nbsp;redirección&nbsp;de&nbsp;la&nbsp;salida&nbsp;estándar.</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">setTextLineEnding</span><span class="style_13">(</span><span class="style_1">stdOut</span><span class="style_13">,</span><span class="style_1">CRLF</span><span class="style_13">);&nbsp;</span><span class="style_4">//&nbsp;Asignándole&nbsp;formato&nbsp;a&nbsp;la&nbsp;salida&nbsp;estándar.</span><br />
&nbsp;&nbsp;&nbsp;&nbsp;<span class="style_1">flagInPut</span><span class="style_13">:=&nbsp;</span><span class="style_1">false</span><span class="style_13">;</span><br />
<span class="style_9">END</span><span class="style_13">.</span><br />

</p>
</body>
</html>

